home *** CD-ROM | disk | FTP | other *** search
/ Enter 2001 April / EnterCD4.iso / Update / SQL Server SP3 / sql70sp3i.exe / X86 / BINN / res / 1033 / sqlmmc.rll / HTML / VBREPPRP.BAS < prev   
Encoding:
BASIC Source File  |  1999-04-12  |  26.7 KB  |  507 lines
  1.  
  2.  
  3.  
  4. Sub ShowLinPackageProp(whereFrom, LinGuid)
  5.     Dim arrLinGuids()
  6.     ReDim arrLinGuids(1)
  7.     arrLinGuids(0) = LinGuid
  8.     Call ShowLinsPackagesProp(whereFrom, arrLinGuids)
  9. end Sub
  10.  
  11.  
  12. Sub ShowPackageProp(whereFrom, PackGuid)
  13.     Dim arrPackGuids()
  14.     ReDim arrPackGuids(1)
  15.     arrPackGuids(0) = PackGuid
  16.     Call ShowPackagesProp(whereFrom, arrPackGuids)
  17. end Sub
  18.  
  19.  
  20.  
  21. sub OnLoadPackagesProp(arrPropGuids)
  22.     Dim strHTML
  23.     Dim iMax
  24.     Dim strPackageGuid
  25.     Dim I
  26.     Dim arrPackPropValues()
  27.       
  28.     if ((errorFlag and 3) <> 0) then
  29.         exit sub
  30.     end if
  31.  
  32.     strHTML = ""
  33.     iMax = UBound(arrPropGuids) - 1
  34.     For I = 0 To iMax
  35.         strPackageGuid = arrPropGuids(I)
  36.         Call getPackageProperties(arrPackPropValues, strPackageGuid)
  37.         strHTML = strHTML & GeneratePackPropTable(arrPackPropValues, strPackageGuid)
  38.         if (I < (iMax)) Then
  39.             strHTML = strHTML & "<hr>"
  40.         end if
  41.     Next
  42.     document.all.PackPropDataSrcPack.innerHTML = strHTML
  43.     document.all.PackPropDataTgtPack.innerHTML = ""
  44.     if (GetLastHistoryText() = "") then
  45.         document.all.PropertyAnotText.innerHTML = ""
  46.     else
  47.         document.all.PropertyAnotText.innerHTML = GetResString(77) & "<a class=""TableRowButton"" href language=""jscript"" onclick=""PopHistory()"">" & GetLastHistoryText() & "</a>"
  48.     end if
  49. end sub
  50.  
  51.  
  52. sub OnLoadLinPackageProp(arrLinGuids)
  53.     Dim strHTML
  54.     Dim iMax
  55.     Dim strPackageGuid
  56.     Dim I
  57.     Dim arrPackPropValues()
  58.     Dim arrLinPropValues()
  59.       
  60.     if ((errorFlag and 3) <> 0) then
  61.         exit sub
  62.     end if
  63.  
  64.     strHTML = ""
  65.     iMax = UBound(arrLinGuids) - 1
  66.     For I = 0 To iMax
  67.         strPackageGuid = getPackageGuidFromLin(arrLinGuids(I))
  68.         Call getPackageProperties(arrPackPropValues, strPackageGuid)
  69.         strHTML = strHTML & GeneratePackPropTable(arrPackPropValues, strPackageGuid)
  70.         strHTML = strHTML & "<hr>"
  71.         Call getLinProperties(arrLinPropValues, arrLinGuids(I))
  72.         strHTML = strHTML & GenerateLinPropTable(arrLinPropValues)
  73.         if (I < (iMax)) Then
  74.             strHTML = strHTML & GenerateTableSeperator()
  75.         end if
  76.     Next
  77.     document.all.PackPropDataSrcPack.innerHTML = strHTML
  78.     document.all.PackPropDataTgtPack.innerHTML = ""
  79.     if (GetLastHistoryText() = "") then
  80.         document.all.PropertyAnotText.innerHTML = ""
  81.     else
  82.         document.all.PropertyAnotText.innerHTML = GetResString(77) & "<a class=""TableRowButton"" href language=""jscript"" onclick=""PopHistory()"">" & GetLastHistoryText() & "</a>"
  83.     end if
  84. end sub
  85.  
  86.  
  87. sub OnLoadSrcTgtPackageProp(strGuid, strType)
  88.     Dim strHTML
  89.     Dim arrPackGuids
  90.     Dim iMax
  91.     Dim iNum
  92.     Dim arrPackPropValues()
  93.  
  94.     if ((errorFlag and 3) <> 0) then
  95.         exit sub
  96.     end if
  97.  
  98.     Call findSrcPackageGuids(arrPackGuids, strGuid, strType)
  99.     strHTML = ""
  100.     iMax = UBound(arrPackGuids) - 1
  101.     For iNum = 0 To iMax
  102.         Call getPackageProperties(arrPackPropValues, arrPackGuids(iNum))
  103.         strHTML = strHTML & GeneratePackPropTable(arrPackPropValues, arrPackGuids(iNum))
  104.         if (iNum < (iMax)) Then
  105.             strHTML = strHTML & "<hr>"
  106.         end if
  107.     Next
  108.     document.all.PackPropDataSrcPack.innerHTML = strHTML
  109.  
  110.     Call findTgtPackageGuids(arrPackGuids, strGuid, strType)
  111.     strHTML = ""
  112.     iMax = UBound(arrPackGuids) - 1
  113.     For iNum = 0 To iMax
  114.         Call getPackageProperties(arrPackPropValues, arrPackGuids(iNum))
  115.         strHTML = strHTML & GeneratePackPropTable(arrPackPropValues, arrPackGuids(iNum))
  116.         if (iNum < (iMax)) Then
  117.             strHTML = strHTML & "<hr>"
  118.         end if
  119.     Next
  120.     document.all.PackPropDataTgtPack.innerHTML = strHTML
  121.     if (GetLastHistoryText() = "") then
  122.         document.all.PropertyAnotText.innerHTML = ""
  123.     else
  124.         document.all.PropertyAnotText.innerHTML = GetResString(77) & "<a class=""TableRowButton"" href language=""jscript"" onclick=""PopHistory()"">" & GetLastHistoryText() & "</a>"
  125.     end if
  126. end sub
  127.  
  128.  
  129. sub OnLoadTableProp(strTableGuid)
  130.     Dim strHTML
  131.     Dim arrTablePropValues()
  132.  
  133.     if ((errorFlag and 3) <> 0) then
  134.         exit sub
  135.     end if
  136.  
  137.     Call getTableProps(arrTablePropValues, strTableGuid)
  138.     strHTML = ""
  139.     strHTML = strHTML & GenerateTablePropTable(arrTablePropValues, strTableGuid)
  140.     document.all.PackPropDataSrcPack.innerHTML = strHTML
  141.     document.all.PackPropDataTgtPack.innerHTML = ""
  142.     if (GetLastHistoryText() = "") then
  143.         document.all.PropertyAnotText.innerHTML = ""
  144.     else
  145.         document.all.PropertyAnotText.innerHTML = GetResString(77) & "<a class=""TableRowButton"" href language=""jscript"" onclick=""PopHistory()"">" & GetLastHistoryText() & "</a>"
  146.     end if
  147. end sub
  148.  
  149.  
  150. sub OnLoadColumnProp(strColumnGuid)
  151.     Dim strHTML
  152.     Dim arrColumnPropValues()
  153.  
  154.     if ((errorFlag and 3) <> 0) then
  155.         exit sub
  156.     end if
  157.  
  158.     Call getColumnProps(arrColumnPropValues, strColumnGuid)
  159.     strHTML = ""
  160.     strHTML = strHTML & GenerateColumnPropTable(arrColumnPropValues, strColumnGuid)
  161.     document.all.PackPropDataSrcPack.innerHTML = strHTML
  162.     document.all.PackPropDataTgtPack.innerHTML = ""
  163.     if (GetLastHistoryText() = "") then
  164.         document.all.PropertyAnotText.innerHTML = ""
  165.     else
  166.         document.all.PropertyAnotText.innerHTML = GetResString(77) & "<a class=""TableRowButton"" href language=""jscript"" onclick=""PopHistory()"">" & GetLastHistoryText() & "</a>"
  167.     end if
  168. end sub
  169.  
  170.  
  171. ' **********************************************************
  172. '  GeneratePackPropTable
  173. ' **********************************************************
  174. Function GeneratePackPropTable(arrPackPropValues, strPackageGuid)
  175.     Dim strHTML
  176.     arrPackPropValues(0) = MyHTMLEncode(arrPackPropValues(0))
  177.     arrPackPropValues(1) = MyHTMLEncode(arrPackPropValues(1))
  178.     arrPackPropValues(2) = MyHTMLEncode(arrPackPropValues(2))
  179.     arrPackPropValues(3) = MyHTMLEncode(arrPackPropValues(3))
  180.     arrPackPropValues(4) = MyHTMLEncode(arrPackPropValues(4))
  181.     arrPackPropValues(5) = MyHTMLEncode(arrPackPropValues(5))
  182.     arrPackPropValues(6) = MyHTMLEncode(arrPackPropValues(6))
  183.     arrPackPropValues(7) = MyHTMLEncode(arrPackPropValues(7))
  184.     arrPackPropValues(8) = MyHTMLEncode(arrPackPropValues(8))
  185.     arrPackPropValues(9) = MyHTMLEncode(arrPackPropValues(9))
  186.     arrPackPropValues(10) = MyHTMLEncode(arrPackPropValues(10))
  187.     arrPackPropValues(11) = MyHTMLEncode(arrPackPropValues(11))
  188.     arrPackPropValues(12) = MyHTMLEncode(arrPackPropValues(12))
  189.       
  190.     strHTML = ""
  191.     strHTML = strHTML & "<table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""BACKGROUND-COLOR: buttonface; PADDING-BOTTOM: 2px; PADDING-LEFT: 10px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"">"
  192.     strHTML = strHTML & "  <tr>"
  193.     strHTML = strHTML & "    <td valign=""top"" class=""TaskBar"">"
  194.     strHTML = strHTML & "      <table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""PADDING-LEFT: 0px; PADDING-RIGHT: 0px"">"
  195.     strHTML = strHTML & "        <tr>"
  196.     strHTML = strHTML & "          <td style=""PADDING-BOTTOM: 10px""><img class=""TaskpadImage"" width=""48"" height=""48"" src=""imgfind.gif""></td>"
  197.     strHTML = strHTML & "        </tr>"
  198.     strHTML = strHTML & "        <tr>"
  199.     strHTML = strHTML & "          <td class=""TableRowButton""><a class=""TableRowButton"" href language=""jscript"" onclick=""OnLineages("" & arrPackPropValues(0) & "","" & strPackageGuid & "")"">" & GetResString(42) & "</a></td>"
  200.     strHTML = strHTML & "        </tr>"
  201.     strHTML = strHTML & "        <tr>"
  202.     strHTML = strHTML & "          <td class=""TableRowButton""><a class=""TableRowButton"" href language=""jscript"" onclick=""DesignCall("" & arrPackPropValues(11) & "","" & arrPackPropValues(1) & "","" & arrPackPropValues(0) & "","" & strPackageGuid & "")"">" & GetResString(43) & "</a></td>"
  203.     strHTML = strHTML & "        </tr>"
  204.     if (arrPackPropValues(13) <> True) then        ' IsFrozen
  205.         strHTML = strHTML & "        <tr>"
  206.         strHTML = strHTML & "          <td class=""TableRowButton""><a class=""TableRowButton"" href language=""jscript"" onclick=""UpdateRepo("EditPackDesc" & strPackageGuid & "","EditPackComm" & strPackageGuid & "")"">" & GetResString(65) & "</a></td>"
  207.         strHTML = strHTML & "        </tr>"
  208.     end if
  209.     strHTML = strHTML & "      </table>"
  210.     strHTML = strHTML & "    </td>"
  211.     strHTML = strHTML & "    <td valign=""top"" style=""BACKGROUND-COLOR: window; PADDING-TOP: 10px"">"
  212.     strHTML = strHTML & "      <table style=""PADDING-BOTTOM: 2px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"" class=""DBTable"" width=""100%"" border=""0"">"
  213.     strHTML = strHTML & "          <tr>"
  214.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(44) & "</td>"        ' Name:
  215.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(0) & "</td>"
  216.     strHTML = strHTML & "        </tr>"
  217.     strHTML = strHTML & "          <tr>"
  218.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(45) & "</td>"        ' Version:
  219.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(1) & "</td>"
  220.     strHTML = strHTML & "          </tr>"
  221.     strHTML = strHTML & "          <tr>"
  222.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(46) & "</td>"        ' Description:
  223.     if (arrPackPropValues(13) = True) then
  224.         strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(2) & "</td>"
  225.     else
  226.         strHTML = strHTML & "            <td valign=""top"" class=""TableRowText""><TEXTAREA cols=30 rows=3 id=EditPackDesc" & strPackageGuid & ">" & arrPackPropValues(2) & "</TEXTAREA></td>"
  227.     end if
  228.     strHTML = strHTML & "          </tr>"
  229.     strHTML = strHTML & "          <tr>"
  230.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(47) & "</td>"        ' Comments:
  231.     if (arrPackPropValues(13) = True) then
  232.         strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(3) & "</td>"
  233.     else
  234.         strHTML = strHTML & "            <td valign=""top"" class=""TableRowText""><TEXTAREA cols=30 rows=4 id=EditPackComm" & strPackageGuid & ">" & arrPackPropValues(3) & "</TEXTAREA></td>"
  235.     end if
  236.     strHTML = strHTML & "          </tr>"
  237.     strHTML = strHTML & "          <tr>"
  238.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(48) & "</td>"        ' Author:
  239.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(4) & "</td>"
  240.     strHTML = strHTML & "          </tr>"
  241.     strHTML = strHTML & "          <tr>"
  242.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(49) & "</td>"        ' Author Information:
  243.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(5) & "</td>"
  244.     strHTML = strHTML & "          </tr>"
  245.     strHTML = strHTML & "          <tr>"
  246.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(50) & "</td>"        ' Create By User:
  247.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(6) & "</td>"
  248.     strHTML = strHTML & "          </tr>"
  249.     strHTML = strHTML & "          <tr>"
  250.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(51) & "</td>"        ' Modified By User:
  251.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(7) & "</td>"
  252.     strHTML = strHTML & "          </tr>"
  253.     strHTML = strHTML & "          <tr>"
  254.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(52) & "</td>"        ' Version Create Time:
  255.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(8) & "</td>"
  256.     strHTML = strHTML & "          </tr>"
  257.     strHTML = strHTML & "          <tr>"
  258.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(53) & "</td>"        ' Version Modified Time:
  259.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(9) & "</td>"
  260.     strHTML = strHTML & "          </tr>"
  261.     strHTML = strHTML & "          <tr>"
  262.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(54) & "</td>"        ' Package Creation Date:
  263.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(10) & "</td>"
  264.     strHTML = strHTML & "          </tr>"
  265.     strHTML = strHTML & "          <tr>"
  266.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(55) & "</td>"        ' PackageID:
  267.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(11) & "</td>"
  268.     strHTML = strHTML & "          </tr>"
  269.     strHTML = strHTML & "          <tr>"
  270.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(56) & "</td>"        ' Exception Log:
  271.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(12) & "</td>"
  272.     strHTML = strHTML & "          </tr>"
  273.     strHTML = strHTML & "      </table>"
  274.     strHTML = strHTML & "    </td>"
  275.     strHTML = strHTML & "  </tr>"
  276.     strHTML = strHTML & "</table>"
  277.     GeneratePackPropTable = strHTML
  278. end Function
  279.  
  280.  
  281.  
  282. ' **********************************************************
  283. '  GenerateLinPropTable
  284. ' **********************************************************
  285. Function GenerateLinPropTable(arrLinPropValues)
  286.     Dim strHTML
  287.     arrLinPropValues(0) = MyHTMLEncode(arrLinPropValues(0))
  288.     arrLinPropValues(1) = MyHTMLEncode(arrLinPropValues(1))
  289.     arrLinPropValues(2) = MyHTMLEncode(arrLinPropValues(2))
  290.     arrLinPropValues(3) = MyHTMLEncode(arrLinPropValues(3))
  291.     arrLinPropValues(4) = MyHTMLEncode(arrLinPropValues(4))
  292.     arrLinPropValues(5) = MyHTMLEncode(arrLinPropValues(5))
  293.       
  294.     strHTML = ""
  295.     strHTML = strHTML & "<table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""BACKGROUND-COLOR: buttonface; PADDING-BOTTOM: 2px; PADDING-LEFT: 10px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"">"
  296.     strHTML = strHTML & "  <tr>"
  297.     strHTML = strHTML & "    <td valign=""top"" class=""TaskBar"">"
  298.     strHTML = strHTML & "      <table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""PADDING-LEFT: 0px; PADDING-RIGHT: 0px"">"
  299.     strHTML = strHTML & "        <tr>"
  300.     strHTML = strHTML & "          <td style=""PADDING-BOTTOM: 10px""><img class=""TaskpadImage"" width=""48"" height=""48"" src=""imglin.gif""></td>"
  301.     strHTML = strHTML & "        </tr>"
  302.     strHTML = strHTML & "      </table>"
  303.     strHTML = strHTML & "    </td>"
  304.     strHTML = strHTML & "    <td valign=""top"" style=""BACKGROUND-COLOR: window; PADDING-TOP: 10px"">"
  305.     strHTML = strHTML & "      <table style=""PADDING-BOTTOM: 2px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"" class=""DBTable"" width=""100%"" border=""0"">"
  306.     strHTML = strHTML & "          <tr>"
  307.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(2) & "</td>"        ' Lineage Long:
  308.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrLinPropValues(1) & "</td>"
  309.     strHTML = strHTML & "          </tr>"
  310.     strHTML = strHTML & "          <tr>"
  311.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(3) & "</td>"        ' Lineage Short:
  312.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrLinPropValues(2) & "</td>"
  313.     strHTML = strHTML & "          </tr>"
  314.     strHTML = strHTML & "          <tr>"
  315.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(44) & "</td>"        ' Name:
  316.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrLinPropValues(0) & "</td>"
  317.     strHTML = strHTML & "          </tr>"
  318.     strHTML = strHTML & "          <tr>"
  319.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(57) & "</td>"        ' System:
  320.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrLinPropValues(3) & "</td>"
  321.     strHTML = strHTML & "          </tr>"
  322.     strHTML = strHTML & "          <tr>"
  323.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(58) & "</td>"        ' Account:
  324.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrLinPropValues(4) & "</td>"
  325.     strHTML = strHTML & "          </tr>"
  326.     strHTML = strHTML & "          <tr>"
  327.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(59) & "</td>"        ' Execution Time:
  328.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrLinPropValues(5) & "</td>"
  329.     strHTML = strHTML & "          </tr>"
  330.     strHTML = strHTML & "      </table>"
  331.     strHTML = strHTML & "    </td>"
  332.     strHTML = strHTML & "  </tr>"
  333.     strHTML = strHTML & "</table>"
  334.     GenerateLinPropTable = strHTML
  335. end Function
  336.  
  337.  
  338. Function GenerateTableSeperator()
  339.     strHTML = ""
  340.     strHTML = strHTML & "<table frame=""void"" cellspacing=""0"" cellpadding=""0"" width=""100%"">"
  341.     strHTML = strHTML & "  <tr>"
  342.     strHTML = strHTML & "    <td align=""center"">"
  343.     strHTML = strHTML & "      <hr>"
  344.     strHTML = strHTML & "      <table frame=""void"" cellspacing=""0"" cellpadding=""0"" width=""100%"">"
  345.     strHTML = strHTML & "        <tr>"
  346.     strHTML = strHTML & "          <td class=""DBHighlightedTableText"" align=""center"">----</td>"
  347.     strHTML = strHTML & "        </tr>"
  348.     strHTML = strHTML & "      </table>"
  349.     strHTML = strHTML & "      <hr>"
  350.     strHTML = strHTML & "    </td>"
  351.     strHTML = strHTML & "  </tr>"
  352.     strHTML = strHTML & "</table>"
  353.     GenerateTableSeperator = strHTML
  354. end Function
  355.  
  356.  
  357. ' **********************************************************
  358. '  GenerateTablePropTable
  359. ' **********************************************************
  360. Function GenerateTablePropTable(arrPackPropValues, strTableGuid)
  361.     Dim strHTML
  362.     arrPackPropValues(0) = MyHTMLEncode(arrPackPropValues(0))
  363.     arrPackPropValues(1) = MyHTMLEncode(arrPackPropValues(1))
  364.     arrPackPropValues(2) = MyHTMLEncode(arrPackPropValues(2))
  365.     arrPackPropValues(3) = MyHTMLEncode(arrPackPropValues(3))
  366.     arrPackPropValues(4) = MyHTMLEncode(arrPackPropValues(4))
  367.       
  368.     strHTML = ""
  369.     strHTML = strHTML & "<table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""BACKGROUND-COLOR: buttonface; PADDING-BOTTOM: 2px; PADDING-LEFT: 10px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"">"
  370.     strHTML = strHTML & "  <tr>"
  371.     strHTML = strHTML & "    <td valign=""top"" class=""TaskBar"">"
  372.     strHTML = strHTML & "      <table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""PADDING-LEFT: 0px; PADDING-RIGHT: 0px"">"
  373.     strHTML = strHTML & "        <tr>"
  374.     strHTML = strHTML & "          <td style=""PADDING-BOTTOM: 10px""><img class=""TaskpadImage"" width=""48"" height=""48"" src=""imgfind.gif""></td>"
  375.     strHTML = strHTML & "        </tr>"
  376.     strHTML = strHTML & "        <tr>"
  377.     strHTML = strHTML & "          <td class=""TableRowButton""><a class=""TableRowButton"" href language=""jscript"" onclick=""UpdateRepo("EditTblDesc" & strTableGuid & "","EditTblComm" & strTableGuid & "")"">" & GetResString(65) & "</a></td>"
  378.     strHTML = strHTML & "        </tr>"
  379.     strHTML = strHTML & "      </table>"
  380.     strHTML = strHTML & "    </td>"
  381.     strHTML = strHTML & "    <td valign=""top"" style=""BACKGROUND-COLOR: window; PADDING-TOP: 10px"">"
  382.     strHTML = strHTML & "      <table style=""PADDING-BOTTOM: 2px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"" class=""DBTable"" width=""100%"" border=""0"">"
  383.     strHTML = strHTML & "         <tr>"
  384.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(68) & "</td>"        ' Table Name:
  385.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(0) & "</td>"
  386.     strHTML = strHTML & "         </tr>"
  387.     strHTML = strHTML & "         <tr>"
  388.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(66) & "</td>"        ' Schema Name:
  389.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(3) & "</td>"
  390.     strHTML = strHTML & "         </tr>"
  391.     strHTML = strHTML & "         <tr>"
  392.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(67) & "</td>"        ' Database Name:
  393.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(4) & "</td>"
  394.     strHTML = strHTML & "         </tr>"
  395.     strHTML = strHTML & "          <tr>"
  396.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(46) & "</td>"        ' Description:
  397.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText""><TEXTAREA cols=30 rows=3 id=EditTblDesc" & strTableGuid & ">" & arrPackPropValues(1) & "</TEXTAREA></td>"
  398.     strHTML = strHTML & "          </tr>"
  399.     strHTML = strHTML & "          <tr>"
  400.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(47) & "</td>"        ' Comments:
  401.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText""><TEXTAREA cols=30 rows=4 id=EditTblComm" & strTableGuid & ">" & arrPackPropValues(2) & "</TEXTAREA></td>"
  402.     strHTML = strHTML & "          </tr>"
  403.     strHTML = strHTML & "      </table>"
  404.     strHTML = strHTML & "    </td>"
  405.     strHTML = strHTML & "  </tr>"
  406.     strHTML = strHTML & "</table>"
  407.     GenerateTablePropTable = strHTML
  408. end Function
  409.  
  410.  
  411. ' **********************************************************
  412. '  GenerateColumnPropTable
  413. ' **********************************************************
  414. Function GenerateColumnPropTable(arrPackPropValues, strColumnGuid)
  415.     Dim strHTML
  416.     arrPackPropValues(0) = MyHTMLEncode(arrPackPropValues(0))
  417.     arrPackPropValues(1) = MyHTMLEncode(arrPackPropValues(1))
  418.     arrPackPropValues(2) = MyHTMLEncode(arrPackPropValues(2))
  419.     arrPackPropValues(3) = MyHTMLEncode(arrPackPropValues(3))
  420.     arrPackPropValues(4) = MyHTMLEncode(arrPackPropValues(4))
  421.     arrPackPropValues(5) = MyHTMLEncode(arrPackPropValues(5))
  422.     arrPackPropValues(6) = MyHTMLEncode(arrPackPropValues(6))
  423.     arrPackPropValues(7) = MyHTMLEncode(arrPackPropValues(7))
  424.     arrPackPropValues(8) = MyHTMLEncode(arrPackPropValues(8))
  425.     arrPackPropValues(9) = MyHTMLEncode(arrPackPropValues(9))
  426.     arrPackPropValues(10) = MyHTMLEncode(arrPackPropValues(10))
  427.       
  428.     strHTML = ""
  429.     strHTML = strHTML & "<table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""BACKGROUND-COLOR: buttonface; PADDING-BOTTOM: 2px; PADDING-LEFT: 10px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"">"
  430.     strHTML = strHTML & "  <tr>"
  431.     strHTML = strHTML & "    <td valign=""top"" class=""TaskBar"">"
  432.     strHTML = strHTML & "      <table cellspacing=""0"" cellpadding=""0"" width=""100%"" style=""PADDING-LEFT: 0px; PADDING-RIGHT: 0px"">"
  433.     strHTML = strHTML & "        <tr>"
  434.     strHTML = strHTML & "          <td style=""PADDING-BOTTOM: 10px""><img class=""TaskpadImage"" width=""48"" height=""48"" src=""imgfind.gif""></td>"
  435.     strHTML = strHTML & "        </tr>"
  436.     strHTML = strHTML & "        <tr>"
  437.     strHTML = strHTML & "          <td class=""TableRowButton""><a class=""TableRowButton"" href language=""jscript"" onclick=""UpdateRepo("EditColDesc" & strColumnGuid & "","EditColComm" & strColumnGuid & "")"">" & GetResString(65) & "</a></td>"
  438.     strHTML = strHTML & "        </tr>"
  439.     strHTML = strHTML & "      </table>"
  440.     strHTML = strHTML & "    </td>"
  441.     strHTML = strHTML & "    <td valign=""top"" style=""BACKGROUND-COLOR: window; PADDING-TOP: 10px"">"
  442.     strHTML = strHTML & "      <table style=""PADDING-BOTTOM: 2px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 2px"" class=""DBTable"" width=""100%"" border=""0"">"
  443.     strHTML = strHTML & "         <tr>"
  444.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(69) & "</td>"        ' Column Name:
  445.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(0) & "</td>"
  446.     strHTML = strHTML & "         </tr>"
  447.     strHTML = strHTML & "         <tr>"
  448.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(68) & "</td>"        ' Table Name:
  449.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(8) & "</td>"
  450.     strHTML = strHTML & "         </tr>"
  451.     strHTML = strHTML & "         <tr>"
  452.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(66) & "</td>"        ' Schama Name:
  453.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(9) & "</td>"
  454.     strHTML = strHTML & "         </tr>"
  455.     strHTML = strHTML & "         <tr>"
  456.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(67) & "</td>"        ' Database Name:
  457.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(10) & "</td>"
  458.     strHTML = strHTML & "         </tr>"
  459.     strHTML = strHTML & "          <tr>"
  460.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(46) & "</td>"        ' Description:
  461.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText""><TEXTAREA cols=30 rows=3 id=EditColDesc" & strColumnGuid & ">" & arrPackPropValues(1) & "</TEXTAREA></td>"
  462.     strHTML = strHTML & "          </tr>"
  463.     strHTML = strHTML & "          <tr>"
  464.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(47) & "</td>"        ' Comments:
  465.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText""><TEXTAREA cols=30 rows=4 id=EditColComm" & strColumnGuid & ">" & arrPackPropValues(2) & "</TEXTAREA></td>"
  466.     strHTML = strHTML & "         </tr>"
  467.     strHTML = strHTML & "          <tr>"
  468.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(60) & "</td>"        ' Data Type:
  469.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(3) & "</td>"
  470.     strHTML = strHTML & "         </tr>"
  471.     strHTML = strHTML & "          <tr>"
  472.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(61) & "</td>"        ' Length:
  473.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(4) & "</td>"
  474.     strHTML = strHTML & "         </tr>"
  475.     strHTML = strHTML & "          <tr>"
  476.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(62) & "</td>"        ' Scale:
  477.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(5) & "</td>"
  478.     strHTML = strHTML & "         </tr>"
  479.     strHTML = strHTML & "          <tr>"
  480.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(63) & "</td>"        ' Precision:
  481.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(6) & "</td>"
  482.     strHTML = strHTML & "         </tr>"
  483.     strHTML = strHTML & "          <tr>"
  484.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowHeading"">" & GetResString(64) & "</td>"        ' Nulls:
  485.     strHTML = strHTML & "            <td valign=""top"" class=""TableRowText"">" & arrPackPropValues(7) & "</td>"
  486.     strHTML = strHTML & "         </tr>"
  487.     strHTML = strHTML & "      </table>"
  488.     strHTML = strHTML & "    </td>"
  489.     strHTML = strHTML & "  </tr>"
  490.     strHTML = strHTML & "</table>"
  491.     GenerateColumnPropTable = strHTML
  492. end Function
  493.  
  494.  
  495. Sub UpdateRepo(strDescTag, strCommTag)
  496.     Dim strGuid
  497.     Dim objDesc
  498.     Dim objComm
  499.  
  500.     ' the right 49 characters of the tag is the GUID
  501.     strGuid = Right(strDescTag, 49)
  502.  
  503.     Set objDesc = document.all.item(strDescTag)
  504.     Set objComm = document.all.item(strCommTag)
  505.     Call UpdateDescriptions(strGuid, objDesc.value, objComm.value)
  506. End Sub
  507.